cap pr drop c
pr de c
	replace cant_num =`1' if inlist(cant,"`2'","`3'","`4'","`5'","`6'" )  
end


g cant_num=.
c 1 ZH Zürich
c 2	BE  Bern "Bern / Berne" 
c 3	LU	Luzern 
c 4 UR	Uri 
c 5	SZ	Schwyz 
c 6	OW	Obwalden 
c 7	NW	Nidwalden 
c 8	GL	Glarus 
c 9	ZG  Zug 
c 10	FR  Fribourg Frei "Fribourg / Freiburg" Freiburg
c 11	SO	Solothurn 					
c 12	BS	Basel-Stadt "BaselStadt"				
c 13	BL	Basel-Landschaft "BaselLandschaft"			
c 14	SH	Schaffhausen 				
c 15	AR	"Appenzell Ausserrhoden" "Appenzell A.Rh."
c 16	AI	"Appenzell Innerrhoden" "Appenzell I.Rh."		
c 17	SG	"St. Gallen" "St.Gallen"
c 18	GR	Graubünden "Graubünden / Grigioni / Grischun"
c 19	AG	Aargau 		
c 20	TG	Thurgau 	
c 21	TI	Ticino 	Tessin	
c 22	VD	Vaud Waadt		
c 23	VS	Valais 	"Valais / Wallis" "Wallis"
c 24	NE	Neuchâtel 	Neuenburg		
c 25	GE	Genève Genf 				
c 26	JU	Jura 


drop cant
g cant=""
loc j 0
foreach z in ZH BE LU UR SZ OW NW GL ZG FR SO BS BL SH AR AI SG GR AG TG TI VD VS NE GE JU {
loc ++j 
replace cant="`z'" if cant_num==`j'
}






